home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / Pro-net (final).adf / ins < prev    next >
Text File  |  2018-01-18  |  7KB  |  207 lines
  1.  
  2. . ins
  3. .key DNAME
  4. . Install PRO-NET to hard disk
  5. . Usage: execute ins <HARD DISK NAME>
  6. IF NOT EXISTS <DNAME>
  7. ECHO "<DNAME> not found!"
  8. QUIT
  9. ENDIF
  10. FAILAT 31
  11. CD <DNAME>
  12. CD >NIL: /
  13. IF FAIL
  14. ECHO "<DNAME> is a Disk."
  15. SKIP TO_PRONET
  16. ;
  17. ; Send to <DNAME>PRO-NET routine
  18. ;
  19. ELSE
  20. ECHO "<DNAME> is a Volume."
  21. SKIP TO_ROOT
  22. ;
  23. ; Send to <DNAME> routine
  24. ;
  25. ENDIF
  26. LAB TO_PRONET
  27. IF exists <DNAME>PRO-NET
  28. ECHO "UPDATING PRO-NET"
  29. COPY  "PRO-NET:#?"  <DNAME>PRO-NET
  30. COPY  "PRO-NET:PNDRAWER.info" TO <DNAME>PRO-NET.info
  31. DELETE <DNAME>PRO-NET/PNDRAWER.info
  32. IF NOT exists <DNAME>PRO-NET/PNLIB
  33. SKIP MAKED
  34. endif
  35. ECHO "The Device and Symbol libraries already exist."
  36. ECHO "If you wish to install your library disk, enter these commands:"
  37. ECHO " "
  38. ECHO "EXECUTE PRO-NET:MERGE_LIBRARIES  source_drive  destination_drive"
  39. ECHO " "
  40. QUIT
  41. endif
  42. ECHO "INSTALLING PRO-NET"
  43. MAKEDIR  <DNAME>PRO-NET
  44. COPY  "PRO-NET:#?"  <DNAME>PRO-NET
  45. COPY  "PRO-NET:PNDRAWER.info" TO <DNAME>PRO-NET.info
  46. DELETE <DNAME>PRO-NET/PNDRAWER.info
  47. LAB MAKED
  48. ECHO "MAKING DIRECTORIES"
  49. MAKEDIR  <DNAME>PRO-NET/PNPOST
  50. MAKEDIR  <DNAME>PRO-NET/PNDIR
  51. MAKEDIR  <DNAME>PRO-NET/PNLIB
  52. MAKEDIR  <DNAME>PRO-NET/PNLIB/TTL
  53. MAKEDIR  <DNAME>PRO-NET/PNLIB/MOS
  54. MAKEDIR  <DNAME>PRO-NET/PNLIB/VLSI
  55. MAKEDIR  <DNAME>PRO-NET/PNLIB/ECL
  56. MAKEDIR  <DNAME>PRO-NET/PNLIB/Analog
  57. MAKEDIR  <DNAME>PRO-NET/PNLIB/Discrete
  58. MAKEDIR  <DNAME>PRO-NET/PNLIB/MTTL
  59. MAKEDIR  <DNAME>PRO-NET/PNLIB/User
  60. MAKEDIR  <DNAME>PRO-NET/PNLIB/Symbol
  61. MAKEDIR  <DNAME>PRO-NET/PNLIB/schem
  62. LAB MERGE
  63. ECHO "COPYING LIBRARIES"
  64. ECHO " "
  65. ECHO "Please insert 1st. library disk in df0:"
  66. ASK "Hit 'Y' and 'RETURN' when ready"
  67. IF warn
  68. . The 2nd. lib disk may need be merged with the 1st. lib disk
  69. RAM:MERGELIB DF0:PNDIR/TTL  <DNAME>PRO-NET/PNDIR/TTL
  70. RAM:MERGELIB DF0:PNDIR/MTTL  <DNAME>PRO-NET/PNDIR/MTTL
  71. RAM:MERGELIB DF0:PNDIR/VLSI  <DNAME>PRO-NET/PNDIR/VLSI
  72. RAM:MERGELIB DF0:PNDIR/ECL  <DNAME>PRO-NET/PNDIR/ECL
  73. RAM:MERGELIB DF0:PNDIR/Analog  <DNAME>PRO-NET/PNDIR/Analog
  74. RAM:MERGELIB DF0:PNDIR/Discrete  <DNAME>PRO-NET/PNDIR/Discrete
  75. RAM:MERGELIB DF0:PNDIR/user  <DNAME>PRO-NET/PNDIR/User
  76. RAM:MERGELIB DF0:PNDIR/schem  <DNAME>PRO-NET/PNDIR/schem
  77. RAM:MERGELIB DF0:PNDIR/Symbol  <DNAME>PRO-NET/PNDIR/Symbol
  78. RAM:MERGELIB DF0:PNDIR/MOS  <DNAME>PRO-NET/PNDIR/MOS
  79. endif
  80. ECHO " "
  81. ECHO "Please insert 2nd. library disk in df0:"
  82. ASK "Hit 'Y' and 'RETURN' when ready"
  83. IF warn
  84. RAM:MERGELIB DF0:PNDIR/TTL  <DNAME>PRO-NET/PNDIR/TTL
  85. RAM:MERGELIB DF0:PNDIR/MTTL  <DNAME>PRO-NET/PNDIR/MTTL
  86. RAM:MERGELIB DF0:PNDIR/VLSI  <DNAME>PRO-NET/PNDIR/VLSI
  87. RAM:MERGELIB DF0:PNDIR/ECL  <DNAME>PRO-NET/PNDIR/ECL
  88. RAM:MERGELIB DF0:PNDIR/Analog  <DNAME>PRO-NET/PNDIR/Analog
  89. RAM:MERGELIB DF0:PNDIR/Discrete  <DNAME>PRO-NET/PNDIR/Discrete
  90. RAM:MERGELIB DF0:PNDIR/user  <DNAME>PRO-NET/PNDIR/User
  91. RAM:MERGELIB DF0:PNDIR/schem  <DNAME>PRO-NET/PNDIR/schem
  92. RAM:MERGELIB DF0:PNDIR/Symbol  <DNAME>PRO-NET/PNDIR/Symbol
  93. RAM:MERGELIB DF0:PNDIR/MOS  <DNAME>PRO-NET/PNDIR/MOS
  94. endif
  95. ECHO " "
  96. ECHO "Please insert 3rd. library disk in df0:"
  97. ASK "Hit 'Y' and 'RETURN' when ready"
  98. IF warn
  99. RAM:MERGELIB DF0:PNDIR/TTL  <DNAME>PRO-NET/PNDIR/TTL
  100. RAM:MERGELIB DF0:PNDIR/MTTL  <DNAME>PRO-NET/PNDIR/MTTL
  101. RAM:MERGELIB DF0:PNDIR/VLSI  <DNAME>PRO-NET/PNDIR/VLSI
  102. RAM:MERGELIB DF0:PNDIR/ECL  <DNAME>PRO-NET/PNDIR/ECL
  103. RAM:MERGELIB DF0:PNDIR/Analog  <DNAME>PRO-NET/PNDIR/Analog
  104. RAM:MERGELIB DF0:PNDIR/Discrete  <DNAME>PRO-NET/PNDIR/Discrete
  105. RAM:MERGELIB DF0:PNDIR/user  <DNAME>PRO-NET/PNDIR/User
  106. RAM:MERGELIB DF0:PNDIR/schem  <DNAME>PRO-NET/PNDIR/schem
  107. RAM:MERGELIB DF0:PNDIR/Symbol  <DNAME>PRO-NET/PNDIR/Symbol
  108. RAM:MERGELIB DF0:PNDIR/MOS  <DNAME>PRO-NET/PNDIR/MOS
  109. endif
  110. ECHO  " "
  111. ECHO "If you have more library disks to install, Please enter this command:"
  112. ECHO " "
  113. ECHO "EXECUTE PRO-NET:MERGE_LIBRARIES  source_drive  destination_drive"
  114. ECHO " "
  115. QUIT
  116.  
  117. LAB TO_ROOT
  118. IF exists <DNAME>PRO-NET
  119. ECHO "UPDATING PRO-NET"
  120. COPY  "PRO-NET:#?"  <DNAME>
  121. DELETE <DNAME>PNDRAWER.info
  122. IF NOT exists <DNAME>PNLIB
  123. SKIP MAKED1
  124. endif
  125. ECHO "The Device and Symbol libraries already exist."
  126. ECHO "If you wish to install your library disk, enter these commands:"
  127. ECHO " "
  128. ECHO "EXECUTE PRO-NET:MERGE_LIBRARIES  source_drive  destination_drive"
  129. ECHO " "
  130. QUIT
  131. endif
  132. ECHO "INSTALLING PRO-NET"
  133. IF NOT EXISTS <DNAME>
  134. MAKEDIR  <DNAME>
  135. endif
  136. COPY  "PRO-NET:#?"  <DNAME>
  137. DELETE <DNAME>PNDRAWER.info
  138. LAB MAKED1
  139. ECHO "MAKING DIRECTORIES"
  140. MAKEDIR  <DNAME>PNPOST
  141. MAKEDIR  <DNAME>PNDIR
  142. MAKEDIR  <DNAME>PNLIB
  143. MAKEDIR  <DNAME>PNLIB/TTL
  144. MAKEDIR  <DNAME>PNLIB/MOS
  145. MAKEDIR  <DNAME>PNLIB/VLSI
  146. MAKEDIR  <DNAME>PNLIB/ECL
  147. MAKEDIR  <DNAME>PNLIB/Analog
  148. MAKEDIR  <DNAME>PNLIB/Discrete
  149. MAKEDIR  <DNAME>PNLIB/MTTL
  150. MAKEDIR  <DNAME>PNLIB/User
  151. MAKEDIR  <DNAME>PNLIB/Symbol
  152. MAKEDIR  <DNAME>PNLIB/schem
  153. LAB MERGE
  154. ECHO "COPYING LIBRARIES"
  155. ECHO " "
  156. ECHO "Please insert 1st. library disk in df0:"
  157. ASK "Hit 'Y' and 'RETURN' when ready"
  158. IF warn
  159. . The 2nd. lib disk may need be merged with the 1st. lib disk
  160. RAM:MERGELIB DF0:PNDIR/TTL  <DNAME>PNDIR/TTL
  161. RAM:MERGELIB DF0:PNDIR/MTTL  <DNAME>PNDIR/MTTL
  162. RAM:MERGELIB DF0:PNDIR/VLSI  <DNAME>PNDIR/VLSI
  163. RAM:MERGELIB DF0:PNDIR/ECL  <DNAME>PNDIR/ECL
  164. RAM:MERGELIB DF0:PNDIR/Analog  <DNAME>PNDIR/Analog
  165. RAM:MERGELIB DF0:PNDIR/Discrete  <DNAME>PNDIR/Discrete
  166. RAM:MERGELIB DF0:PNDIR/user  <DNAME>PNDIR/User
  167. RAM:MERGELIB DF0:PNDIR/schem  <DNAME>PNDIR/schem
  168. RAM:MERGELIB DF0:PNDIR/Symbol  <DNAME>PNDIR/Symbol
  169. RAM:MERGELIB DF0:PNDIR/MOS  <DNAME>PNDIR/MOS
  170. endif
  171. ECHO " "
  172. ECHO "Please insert 2nd. library disk in df0:"
  173. ASK "Hit 'Y' and 'RETURN' when ready"
  174. IF warn
  175. RAM:MERGELIB DF0:PNDIR/TTL  <DNAME>PNDIR/TTL
  176. RAM:MERGELIB DF0:PNDIR/MTTL  <DNAME>PNDIR/MTTL
  177. RAM:MERGELIB DF0:PNDIR/VLSI  <DNAME>PNDIR/VLSI
  178. RAM:MERGELIB DF0:PNDIR/ECL  <DNAME>PNDIR/ECL
  179. RAM:MERGELIB DF0:PNDIR/Analog  <DNAME>PNDIR/Analog
  180. RAM:MERGELIB DF0:PNDIR/Discrete  <DNAME>PNDIR/Discrete
  181. RAM:MERGELIB DF0:PNDIR/user  <DNAME>PNDIR/User
  182. RAM:MERGELIB DF0:PNDIR/schem  <DNAME>PNDIR/schem
  183. RAM:MERGELIB DF0:PNDIR/Symbol  <DNAME>PNDIR/Symbol
  184. RAM:MERGELIB DF0:PNDIR/MOS  <DNAME>PNDIR/MOS
  185. endif
  186. ECHO " "
  187. ECHO "Please insert 3rd. library disk in df0:"
  188. ASK "Hit 'Y' and 'RETURN' when ready"
  189. IF warn
  190. RAM:MERGELIB DF0:PNDIR/TTL  <DNAME>PNDIR/TTL
  191. RAM:MERGELIB DF0:PNDIR/MTTL  <DNAME>PNDIR/MTTL
  192. RAM:MERGELIB DF0:PNDIR/VLSI  <DNAME>PNDIR/VLSI
  193. RAM:MERGELIB DF0:PNDIR/ECL  <DNAME>PNDIR/ECL
  194. RAM:MERGELIB DF0:PNDIR/Analog  <DNAME>PNDIR/Analog
  195. RAM:MERGELIB DF0:PNDIR/Discrete  <DNAME>PNDIR/Discrete
  196. RAM:MERGELIB DF0:PNDIR/user  <DNAME>PNDIR/User
  197. RAM:MERGELIB DF0:PNDIR/schem  <DNAME>PNDIR/schem
  198. RAM:MERGELIB DF0:PNDIR/Symbol  <DNAME>PNDIR/Symbol
  199. RAM:MERGELIB DF0:PNDIR/MOS  <DNAME>PNDIR/MOS
  200. endif
  201. ECHO  " "
  202. ECHO "If you have more library disks to install, Please enter this command:"
  203. ECHO " "
  204. ECHO "EXECUTE PRO-NET:MERGE_LIBRARIES  source_drive  destination_drive"
  205. ECHO " "
  206. QUIT
  207.